home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / Stack Catalogs / maxStax+™ Catalog / Business .maxstax+ / card_21595.txt < prev    next >
Text File  |  1990-04-03  |  2KB  |  93 lines
  1. -- card: 21595 from stack: in.maxstax+
  2. -- bmap block id: 35621
  3. -- flags: 0000
  4. -- background id: 21287
  5. -- name: N5088
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=101 top=39 right=71 bottom=187
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   push cd
  23.   set cursor to none
  24.   visual dissolve
  25.   set the hilite of me to true
  26.   go next
  27.   play "harpsichord" tempo 200 58
  28.   wait 3 secs
  29.   repeat with x = 1 to 5
  30.     play "harpsichord" tempo 200 62 + 2*x
  31.     play "harpsichord" tempo 200 65 + 2*x
  32.     visual wipe down
  33.     go next
  34.     wait 3 secs
  35.     add 1 to x
  36.   end repeat
  37.   visual iris close
  38.   pop cd
  39.   play "harpsichord" tempo 200 68 + 2*x
  40.   set the hilite of me to false
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 6 (button)
  46. -- low flags: 00
  47. -- high flags: 8001
  48. -- rect: left=326 top=319 right=335 bottom=352
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 3
  53. -- text size: 9
  54. -- style flags: 256
  55. -- line height: 12
  56. -- part name: 1|7
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   put the short name of me into a
  60.   add 1 to char 2 of a
  61.   set the name of cd btn 1 to a
  62.   choose button tool
  63.   select me
  64.   domenu "copy button"
  65.   set the script of me to ""
  66.   go next
  67.   domenu "paste Button"
  68.   choose browse tool
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part contents for card part 1
  74. ----- text -----
  75. 1) d‚Ä¢b‚Ä¢a series‚Ñ¢
  76. 2) CallReport‚Ñ¢ 1.5
  77. 3) DataBank‚Ñ¢ v. 2.4
  78. 4) BusinessCalendar‚Ñ¢
  79. 5) bkgnd id 18101
  80. 6) bkgnd id 22091
  81. 7) bkgnd id 23015
  82. 8) HECK/ASK¬©  V. 1.2
  83. 9) Hyper Mail‚Ñ¢  V. 1.1
  84. 10) Lightning Labels¬©  V. 2.2
  85. 11) Mac Help Phone¬©  V. 2.0
  86. 12) Mac Help Accountant¬©  V. 1.3
  87. 13) ProAccounts‚Ñ¢  V. 1.0
  88. 14) MacPastor‚Ñ¢  V. 1.0
  89. 15) Stock Records¬©  V. 1.1
  90. 16) NoteMaker‚Ñ¢ V.2.1
  91. 17) Banker's Friend V. 2.0
  92. 18) Business
  93.